1 ' *** OISAC 2 *** MODE 33 ***
10 DEFSEG=0:X=1771:A=PEEKX:B=PEEK(X+1):INPUT"Debut de bloc : ",d,"Fin de bloc  : ",F,"Destination : ",a:n=F-d
20 f=d-1:e=n+f:IFFRE1+e-f>=0THENo=a+n-1:POKEX,204:POKEX+1,247:POKEX+3,5:GOSUB2090:POKEX,A:POKEX+1,B:POKEX+3,0 ELSEBEEP:PRINT"MODE33 impossible";:END